Option Explicit
Sub P_Sample009()
    Dim myNewName As String
    myNewName = ThisWorkbook.Path & "\" & "Tmp"	'NƧ
    If Len(Dir(myNewName, vbDirectory)) > 0 Then
        If (GetAttr(myNewName) And vbDirectory) = vbDirectory Then
            If Len(Dir(myNewName & "\")) > 0 Then
                MsgBox "ƧɮצsbA]LkRƧC"
            Else
                RmDir myNewName
            End If
        End If
    End If
End Sub
